perm filename DZ11.PAL[11,ARG] blob sn#553884 filedate 1981-01-05 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.INSRT STUFF.PAL[11,ARG]
C00004 ENDMK
CāŠ—;
.INSRT STUFF.PAL[11,ARG]

;DZ11 definitions

DZCSR  = 160000		;Control and Status register
DZLPR  = 160002		;Line Parameter register      (write only)
DZRBUF = 160002		;Receiver Buffer register     (read  only)
DZTCR  = 160004		;Transmitter Control register (byte)
DZTBUF = 160006		;Transmitter Buffer	      (byte, write only)

.=1000

START:	RESET
	MOV #START,SP		;Set up the stack
	BIS #40,DZCSR		;Turn on master scan enable
ZERO:	MOV #10,R0
	MOV #LINE,R1
1$:	CLR (R1)+
	SOB R0,1$
TEST:	MOV #1000,R0
2$:	MOV DZRBUF,R1
	SWAB R1
	BIC #177770,R1
	ASL R1
	INC LINE(R1)
	SOB R0,2$
FIN:	BPT
	BPT

LINE:	.WORD 0,0,0,0,0,0,0,0

.END START